home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
tlx_sq15.zip
/
DISPLAY.SLT
< prev
next >
Wrap
Text File
|
1990-10-31
|
2KB
|
64 lines
//-----------------------------------------------------------
// DISPLAY.SL? Display setting of some flags.
//
// This script is executed whenever you toggle one of the flags.
// Please look at the comments through the whole file, and modify to
// suit your needs, BEFORE you use it. Then recompile with CS DISPLAY
// If you have suggestions for improving this script, please suggest
// improvements to me via old-fashioned snail-mail to:
// Inge Vabekk
// Hamangskogen 108
// N-1300 SANDVIKA
// NORWAY
//-----------------------------------------------------------
str sline [6]
,global []="GLOBAL"
,status []="STATUS"
,change []="CHANGE"
,read[]="R" // To READ from Global script.
,write[]="W" // To WRITE to Global script.
;
//-----------------------------------------------------------
// Script starts here.
//-----------------------------------------------------------
main()
{
int number, x, y;
if (call (global,read,change,sline) < 0) return; // Not defined.
call (global,write,change,""); // Undefine it.
call (global,read,status,sline); // Get line number of
number = stoi (sline); // status line.
terminal();
x = getx();
y = gety();
pstraxy
(" (sonl,noex) ",27,number,10); // Write default status.
gotoxy (x,y);
call (global,read,"LOGOF",sline); // Get logoff flag.
if (subchr (sline,0) == 'Y')
{ terminal();
x = getx();
y = gety();
pstraxy ("LGOF",30,number,28); // Write status.
gotoxy (x,y);
}
call (global,read,"EXIT",sline);
if (subchr (sline,0) == 'Y')
{ terminal();
x = getx();
y = gety();
pstraxy ("EXIT",35,number,140); // Write status.
gotoxy(x,y);
}
}